home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Chords / get-all-chord-intervals next >
Text File  |  1998-10-22  |  1KB  |  24 lines
  1. get-all-chord-intervals
  2. chords &key (type :integer) (round t)
  3.  
  4. Gives you all the intervals from chord after first removing
  5. duplicates and sorting from low to high.
  6.  
  7. with type integer results in a list of intervals in integers
  8. and with (round t) rounds intervals larger than octave.
  9. (with (round nil) does no rounding)
  10. with type :print prints the interval-names to a list 
  11. and (round t) must be used. 
  12. It works only with chromatic material.
  13. use convert-to-chromatic and then change-to-new-tonality
  14. to solve any problems.   
  15.  
  16. (get-all-chord-intervals '(ahor cgh spwna))
  17. -> ((3 7 7 10 2 5) (1 4 5) (2 3 4 5 7 9 1 3 6 10))
  18.  
  19. (get-all-chord-intervals '(ahor cgh spwna) :round nil)
  20. ->((3 7 7 10 14 17) (1 4 5) (2 3 4 5 7 9 13 15 18 22))
  21.  
  22. (get-all-chord-intervals '(ahor cgh spwna) :type :print)
  23. ->((1 :min-third 2 perf-fifths 1 :min-seventh 1 :maj-second 1 :perf-fourth) (1 :min-second 1 :maj-third 1 :perf-fourth) (1 :maj-second 2 min-thirds 1 :maj-third 1 :perf-fourth 1 :perf-fifth 1 :maj-sixth 1 :min-second 1 :aug-fourth 1 :min-seventh))
  24.